10 clear 
20 A=0
30 TV=A
40 @(A)=A
50 print "A"
60 A=A+1
70 goto 30
:return ;run 